%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim db As NotesDatabase

Sub Initialize
	
	Set s = New NotesSession
	Set db = s.CurrentDatabase
	
End Sub

Sub AssignTrackingNumber(docRef As NotesDocument)
	
	Dim num As Integer	
	If docRef.RecordNo(0) = "" Then
		Dim numView As NotesView
		Set numView = db.GetView ("(RecordNo)")
		Dim numDoc As NotesDocument	
		Set numDoc = numView.GetFirstDocument
		If (numDoc Is Nothing) Then
			num = 1000
		Else
			num = numDoc.RecordNo(0) + 1
		End If
		docRef.RecordNo = num
	End If
	
End Sub

Sub SaveWebOutput( urlStr As String, msg As String )
	
	Print {<META HTTP-EQUIV="refresh" CONTENT="3;URL=}+urlStr+{">}
	Print {<br><br><br><br><center><FONT FACE="Arial" SIZE=3><b>}+msg+{</b>}
	Print {<br><br><FONT SIZE=2>If page does not return in a couple of seconds, click <a href = "}+_
	urlStr+{">Return</a></center></FONT>}
	
End Sub


